;
;  SCHED (c) copyright 1990 Chris Butler
;

;VIDEO M

  set entire off
  goto top
all:
  set entire on	; will cycle thru all modules
top:

;mouse on
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw  488
global boxh  115
global boxtitle "Max with Ed the engineer"
set h 17	; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14; 
cload max.clp 30 1 0	; max's face
tran on 15
cload cover.clp 32 0 1 
merge toursubs.txt

set entrypoint "entry_8"	; for MENUing back
pload palette1.pcx 1
palette 1
pfree 1
set boxtitle "Max and Sue the scheduler"
cload elaine.clp 31 1 0
call steps.txt sched

label201:
newbgrnd "elaine1.pcx" 80 40 0 0 200 5
;mouse on
set str1 "Hi, Max ... what's up?"
set str2 " "
say 0 @str1 @str2
label1a:
getcmd
if @0<>"backup" label202
noise 500 200 50
waitkey 100
goto label1a


label202:
set str1 "Hey, Sue. We need to schedule a repair job on the Eclipse cartoner."
set str2 " "
say 1 @str1 @str2
getcmd
if @0==backup label201

label203:
set str1 "Sure, Max. Let's see when the next major P.M. is."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label202

label205:
newbgrnd "8.pcx" 80 0 1 0 10 9
set str1 "That's too late. We've got a block bearing problem and Eclipse has "
set str2 "recommended a retrofit as soon as possible."
say 1 @str1 @str2
getcmd
if @0==backup label203

label206:
set str1 "OK, let's see when we can get the machine from production."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label205

label207:
newbgrnd "9.pcx" 80 0 1 0 50 9
set str1 "Looks like you can have it on either the 6th or the 20th. Now let's "
set str2 "find out what it takes to do this job."
say 1 @str1 @str2
getcmd
if @0==backup label206

label208:
newbgrnd "10.pcx" 80 0 0 0 10 9
set str1 " ... well, here are the procedure steps ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label207

label209:
newbgrnd "parts.pcx" 80 0 0 0 10 9
set str1 " ... and here are the parts for the job ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label208

label210:
newbgrnd "12.pcx" 80 40 0 0 10 9
set str1 "... and we want to schedule 3 crafts for a total of 12 hours ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label209

label211:
newbgrnd "13.pcx" 80 40 0 0 10 9
set str1 " ... and, Max, here are the tools we need."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label210

label212:
newbgrnd "14.pcx" 80 0 1 0 10 9
set str1 "We have plenty of unscheduled mechanic labor available; who do you "
set str2 "think would be best for this job?"
say 1 @str1 @str2
getcmd
if @0==backup label211

label213:
newbgrnd "15.pcx" 80 0 0 0 10 9
set str1 "If we search on the word `Cartoner' MAXIMO comes back with a list "
set str2 "that includes Mike Jones."
say 0 @str1 @str2
getcmd
if @0==backup label212

label214:
newbgrnd "16.pcx" 80 0 0 0 10 9
set str1 "And the Crafts long description field says that Mike has had some "
set str2 "experience with those Eclipse cartoners."
say 0 @str1 @str2
getcmd
if @0==backup label213

label215:
set str1 "Great! Please schedule the job, reserve the parts and labor, and "
set str2 "print a work order."
say 1 @str1 @str2
getcmd
if @0==backup label214

label216:
newbgrnd "17.pcx" 80 0 1 0 10 9
set str1 "DEMO VIEWERS: IF YOU HAVE A PRINTER ATTACHED TO YOUR PC YOU CAN PRINT"
set str2 " A SAMPLE WORK ORDER BY PRESSING `P', OTHERWISE PRESS `C' TO CONTINUE"
say 1 @str1 @str2
waitkey

ifkey p prnt "P" prnt b label215 "B" label215 LEFT label215
goto label217	; not p => skip to 217
prnt:
call workordr.txt

label217:
newbgrnd "elaine1.pcx" 80 40 0 0 10 9
set str1 "Max, this MAXIMO Series 3 is amazing. We're finally communicating "
set str2 "effectively with Production about our work schedules."
say 0 @str1 @str2
getcmd
if @0==backup label216

label218:
set str1 "Better planning of scheduled downtime has cut overtime by 20%. And"
set str2 " parts reservation has cut trips to the crib for parts and tools."
say 0 @str1 @str2
getcmd
if @0==backup label217

label219:
set str1 "Speaking of parts, I think I'll walk down the hall and see if Irv has"
set str2 " some of those bearings. See you later, Sue."
say 1 @str1 @str2
getcmd
if @0==backup label218
;mouse off

if @entire==on linkit
  link master.txt entry_8     ; else link back
linkit:
  link inv.txt all

;   END SUBR SCHEDULER